(idlwave-xml-create-class-method-lists): Trim out spurious class

inheritance "None" entries.

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 6fa03c27ba11b2f56aec66db474be8bef2f03047..f33ae35ed301ab3d62b723931b7764e808424518 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -4651,7 +4651,11 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.")
              props (car (cdr pelem)))
        (cond
         ((eq ptype 'SUPERCLASS)
-         (push (cdr (assq 'name props)) inherits))
+         (let ((pname (cdr (assq 'name props)))
+               (plink (cdr (assq 'link props))))
+           (unless (and (string= pname "None")
+                        (string= plink "None"))
+             (push pname inherits))))
 
         ((eq ptype 'PROPERTY)
          (let ((pname (cdr (assq 'name props)))